home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / AGSCNF10.ZIP / AGSCNF.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-08-29  |  7KB  |  325 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING006
  24.     String   STRING007
  25.     String   STRING008
  26.     String   STRING009
  27.     String   STRING010
  28.     String   STRING011
  29.     String   TSTRING012(11)
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     TSTRING012(1) = " Password    "
  34.     TSTRING012(2) = " City/Group  "
  35.     TSTRING012(3) = " Data #      "
  36.     TSTRING012(4) = " Voice #     "
  37.     TSTRING012(5) = " Verify Info "
  38.     TSTRING012(6) = " Clear Msg   "
  39.     TSTRING012(7) = " Scroll Msgs "
  40.     TSTRING012(8) = " Long Header "
  41.     TSTRING012(9) = " Full Editor "
  42.     TSTRING012(10) = " Xpert Mode  "
  43.     TSTRING012(11) = " Quit        "
  44.     RdUNet PcbNode()
  45.     WrUNet PcbNode(), "Q", UN_Name(), UN_City(), "Using: @X03AGSCNF v1.0", " "
  46.     PrintLn "@POFF@"
  47.     PrintLn "@CLS@@X0F┌@X07─@X08───────────@X07─@X0F┬@X07─@X08───────────────────────────────────────────────@X07─@X0F┐"
  48.     PrintLn "@X07│@X78 Password    @X07│                                                 │"
  49.     PrintLn "@X08│ @X07City/Group  @X08│                                                 │"
  50.     PrintLn "@X08│ @X07Data #      @X08│                                                 │"
  51.     PrintLn "@X08│ @X07Voice #     @X08│                                                 │"
  52.     PrintLn "@X08│ @X07Verify Info @X08│                                                 │"
  53.     PrintLn "@X08│ @X07Clear Msg   @X08│                                                 │"
  54.     PrintLn "@X08│ @X07Scroll Msgs @X08│                                                 │"
  55.     PrintLn "@X08│ @X07Long Header @X08│                                                 │"
  56.     PrintLn "@X08│ @X07Full Editor @X08│                                                 │"
  57.     PrintLn "@X08│ @X07Xpert Mode  │                                                 │"
  58.     PrintLn "@X07│ Quit        @X0F├@X07─@X08───────────────────────────────────────────────@X07─@X0F┤"
  59.     PrintLn "@X0F├@X07─@X08───────────@X07─@X0F┤ N@X07e@X08w @X0FE@X07n@X08try@X07? (                                  ) @X07│"
  60.     PrintLn "@X07│ @X0FM@X07i@X08sc. @X0FI@X07n@X08fos @X0F└@X07─@X08───────────────────────────────────────────────@X07─@X0F┤"
  61.     PrintLn "@X08│ @X07Name / Handle @X0E:                                               @X07│"
  62.     PrintLn "@X08│ @X07Security Level@X0E:                                               @X08│"
  63.     PrintLn "@X08│ @X07Bytes Uploaded@X0E:                                               @X08│"
  64.     PrintLn "@X08│ @X07Bytes Leeched @X0E:                                               @X08│"
  65.     PrintLn "@X08│ @X07Connect Speed @X0E:                                               @X08│"
  66.     PrintLn "@X07│ ┌@X08───────────────────────────────────────────────────────────@X07┐ │"
  67.     PrintLn "@X0F└@X07─@X0F┘      ■@X07■@X08■ AGSCNF v1.0 by Number Six / AEGiS Corp. ■@X07■@X0F■      └@X07─@X0F┘"
  68.     STRING011 = "AEGiS Corp. LightBar Engine Version 1.0 (c) 1994 [NB6/AEGiS Corp]"
  69.     GetUser
  70.     Print "@X03"
  71.     AnsiPos 19, 15
  72.     Print "@USER@"
  73.     AnsiPos 19, 16
  74.     Print U_Sec
  75.     AnsiPos 19, 17
  76.     Print "@UPBYTES@"
  77.     AnsiPos 19, 18
  78.     Print "@DLBYTES@"
  79.     AnsiPos 19, 19
  80.     Print Carrier() + " Bps"
  81.     INTEGER001 = 1
  82.     Gosub LABEL002
  83.     AnsiPos 15, 2
  84.     :LABEL001
  85.     STRING006 = Inkey()
  86.     If (((STRING006 == "UP") || (STRING006 == "8")) && (INTEGER001 > 1)) Then
  87.         INTEGER002 = INTEGER001
  88.         Dec INTEGER001
  89.         Gosub LABEL013
  90.     Endif
  91.     If (((STRING006 == "DOWN") || (STRING006 == "2")) && (INTEGER001 < 11)) Then
  92.         INTEGER002 = INTEGER001
  93.         Inc INTEGER001
  94.         Gosub LABEL013
  95.     Endif
  96.     If (STRING006 <> Chr(13)) Goto LABEL001
  97.     If (INTEGER001 <> 11) Gosub LABEL004
  98.     If (INTEGER001 <> 11) Goto LABEL001
  99.     If (!0) MouseReg 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
  100.     PutUser
  101.     Print "@X07!@CLS@"
  102.     PrintLn "@X0FI@X07n@X08formations @X0FS@X07a@X08ved..."
  103.     PrintLn "@X0F[AGSCNF 1.0 by Number Six / AEGiS Corp.]"
  104.     Newline
  105.     Newline
  106.     Wait
  107.     End
  108.     :LABEL002
  109.     INTEGER003 = GetX()
  110.     INTEGER004 = GetY()
  111.     Print "@X03"
  112.     AnsiPos 17, 2
  113.     Gosub LABEL003
  114.     Print U_Pwd
  115.     AnsiPos 17, 3
  116.     Gosub LABEL003
  117.     Print U_City
  118.     AnsiPos 17, 4
  119.     Gosub LABEL003
  120.     Print U_BDPhone
  121.     AnsiPos 17, 5
  122.     Gosub LABEL003
  123.     Print U_HVPhone
  124.     AnsiPos 17, 6
  125.     Gosub LABEL003
  126.     Print U_Ver
  127.     AnsiPos 17, 7
  128.     STRING008 = U_Cls
  129.     Gosub LABEL012
  130.     Print STRING009
  131.     AnsiPos 17, 8
  132.     STRING008 = U_Scroll
  133.     Gosub LABEL012
  134.     Print STRING009
  135.     AnsiPos 17, 9
  136.     STRING008 = U_LongHDR
  137.     Gosub LABEL012
  138.     Print STRING009
  139.     AnsiPos 17, 10
  140.     STRING008 = U_FSE
  141.     Gosub LABEL012
  142.     Print STRING009
  143.     AnsiPos 17, 11
  144.     STRING008 = U_Expert
  145.     Gosub LABEL012
  146.     Print STRING009
  147.     AnsiPos INTEGER003, INTEGER004
  148.     Return
  149.     :LABEL003
  150.     Print "                                    "
  151.     Backup 36
  152.     Return
  153.     :LABEL004
  154.     If ((INTEGER001 > 0) && (INTEGER001 < 6)) Then
  155.         If (INTEGER001 == 1) Then
  156.             STRING010 = U_Pwd
  157.             Gosub LABEL011
  158.             U_Pwd = STRING007
  159.         Endif
  160.         If (INTEGER001 == 2) Then
  161.             STRING010 = U_City
  162.             Gosub LABEL011
  163.             U_City = STRING007
  164.         Endif
  165.         If (INTEGER001 == 3) Then
  166.             STRING010 = U_BDPhone
  167.             Gosub LABEL011
  168.             U_BDPhone = STRING007
  169.         Endif
  170.         If (INTEGER001 == 4) Then
  171.             STRING010 = U_HVPhone
  172.             Gosub LABEL011
  173.             U_HVPhone = STRING007
  174.         Endif
  175.         If (INTEGER001 == 5) Then
  176.             STRING010 = U_Ver
  177.             Gosub LABEL011
  178.             U_Ver = STRING007
  179.         Endif
  180.         Gosub LABEL002
  181.     Endif
  182.     If ((INTEGER001 > 5) && (INTEGER001 < 11)) Then
  183.         Gosub LABEL005
  184.         Gosub LABEL002
  185.     Endif
  186.     Return
  187.     :LABEL005
  188.     If (INTEGER001 == 6) Then
  189.         If (U_Cls == "0") Then
  190.             U_Cls = "1"
  191.             Goto LABEL006
  192.         Endif
  193.         U_Cls = "0"
  194.     Endif
  195.     :LABEL006
  196.     If (INTEGER001 == 7) Then
  197.         If (U_Scroll == "0") Then
  198.             U_Scroll = "1"
  199.             Goto LABEL007
  200.         Endif
  201.         U_Scroll = "0"
  202.     Endif
  203.     :LABEL007
  204.     If (INTEGER001 == 8) Then
  205.         If (U_LongHDR == "0") Then
  206.             U_LongHDR = "1"
  207.             Goto LABEL008
  208.         Endif
  209.         U_LongHDR = "0"
  210.     Endif
  211.     :LABEL008
  212.     If (INTEGER001 == 9) Then
  213.         If (U_FSE == "0") Then
  214.             U_FSE = "1"
  215.             Goto LABEL009
  216.         Endif
  217.         U_FSE = "0"
  218.     Endif
  219.     :LABEL009
  220.     If (INTEGER001 == 10) Then
  221.         If (U_Expert == "0") Then
  222.             U_Expert = "1"
  223.             Goto LABEL010
  224.         Endif
  225.         U_Expert = "0"
  226.     Endif
  227.     :LABEL010
  228.     Return
  229.     :LABEL011
  230.     INTEGER003 = GetX()
  231.     INTEGER004 = GetY()
  232.     STRING007 = STRING010
  233.     AnsiPos 26, 13
  234.     InputText "", STRING007, 7, 34
  235.     If (STRING007 == "") STRING007 = STRING010
  236.     AnsiPos 29, 13
  237.     Print "                                  "
  238.     AnsiPos INTEGER003, INTEGER004
  239.     Return
  240.     :LABEL012
  241.     If (STRING008 == "0") STRING009 = "No "
  242.     If (STRING008 == "1") STRING009 = "Yes"
  243.     Return
  244.     :LABEL013
  245.     AnsiPos 2, INTEGER002 + 1
  246.     Print "@X07" + TSTRING012(INTEGER002)
  247.     Print "@X78"
  248.     AnsiPos 2, INTEGER001 + 1
  249.     Print TSTRING012(INTEGER001)
  250.     Return
  251.  
  252. ;------------------------------------------------------------------------------
  253. ;
  254. ; Usage report (before postprocessing)
  255. ;
  256. ; ■ Statements used :
  257. ;
  258. ;    1       End
  259. ;    1       Wait
  260. ;    26      Goto 
  261. ;    49      Let 
  262. ;    23      Print 
  263. ;    24      PrintLn 
  264. ;    26      If 
  265. ;    1       GetUser
  266. ;    1       PutUser
  267. ;    22      Gosub 
  268. ;    7       Return
  269. ;    1       Inc 
  270. ;    1       Dec 
  271. ;    2       Newline
  272. ;    1       InputText 
  273. ;    1       RdUNet 
  274. ;    1       WrUNet 
  275. ;    22      AnsiPos 
  276. ;    1       Backup 
  277. ;    1       MouseReg 
  278. ;
  279. ;
  280. ; ■ Functions used :
  281. ;
  282. ;    4       +
  283. ;    22      ==
  284. ;    3       <>
  285. ;    3       <
  286. ;    3       >
  287. ;    20      !
  288. ;    4       &&
  289. ;    2       ||
  290. ;    1       Chr()
  291. ;    1       Inkey()
  292. ;    2       PcbNode()
  293. ;    1       UN_Name()
  294. ;    1       UN_City()
  295. ;    1       Carrier()
  296. ;    2       GetX()
  297. ;    2       GetY()
  298. ;
  299. ;------------------------------------------------------------------------------
  300. ;
  301. ; Analysis flags : WH
  302. ;
  303. ; W - Write user ■ 5
  304. ;     Program writes a user record. Although this may be normal for a
  305. ;     User Editor, it may also be a way to modify an account level.
  306. ;     ■ Search for : PUTUSER
  307. ;
  308. ; H - Read Password or Password History ■ 5
  309. ;     Program is reading the user's password or last password history
  310. ;     This may be ok for a password manager, but it is very suspect. Check!
  311. ;     ■ Search for : U_PWDHIST, U_PWD
  312. ;
  313. ;------------------------------------------------------------------------------
  314. ;
  315. ; Postprocessing report
  316. ;
  317. ;    0       For/Next
  318. ;    0       While/EndWhile
  319. ;    19      If/Then or If/Then/Else
  320. ;    0       Select Case
  321. ;
  322. ;------------------------------------------------------------------------------
  323. ;                 AEGiS Corp - Break the routines, code against the machines!
  324. ;------------------------------------------------------------------------------
  325.